home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / pcbss20.zip / INFOX.DEF < prev    next >
Text File  |  1991-08-30  |  11KB  |  335 lines
  1. ;
  2. ; INFO.DEF modified as an example of a Post Card door.
  3. ;
  4. ;
  5.  
  6.   LOADMSG "                        Loading Script. Please wait..."
  7.  
  8.   FIELDS
  9.     Name    .........................     C     @user@
  10.     Company ___......................     C
  11.     Addr1   _____....................     C
  12.     Addr2   .........................     C
  13.     CitySt  _____....................     C     @city@
  14.     Zip     _____                         N
  15.     Country ___......................     C     USA
  16.     Phone   _                             P
  17.     Fax     _                             P
  18.     Age     __                            N
  19.     How     _........................     C
  20.     Occup   _........................     C
  21.     Qantel  _                             L
  22.     QUser   _                             L
  23.     PCOwner _                             L
  24.     PCType  _........................     C
  25.     NetWork _                             L
  26.     NetType _........................     C
  27.     Vt3Emu  _                             L
  28.     EmuSoft __.......................     C
  29.     Cmnt1   ........................................................  C
  30.     Cmnt2   ........................................................  C
  31.     Cmnt3   ........................................................  C
  32.     Option  _                             C
  33.     PEnter  .                             C
  34.     aword   ..............................  C
  35.     Rand    ............... C
  36.     SysDate ..........  C
  37.     SysTime ..........  C
  38.     SysNode ...         C
  39.     DataLun    . N 0
  40.     POST_CARDS . N
  41.     pw      ....    N @security@
  42.   FIELDS
  43.  
  44. ;
  45. ;----------------------------------------------------------------------
  46. ; Data file format
  47. ;----------------------------------------------------------------------
  48.  
  49.   SET POST_CARDS  1    ;<<--- set to '0' if processing of Post Cards is
  50.                        ;      NOT desired.
  51.  
  52.   IF POST_CARDS
  53.     FORMAT DataFmt
  54.       Name
  55.       Company
  56.       Addr1
  57.       Addr2
  58.       CitySt
  59.       Zip
  60.       Country
  61.       Phone
  62.       SysDate
  63.       SysTime
  64.       SysNode
  65.       Rand
  66.     FORMAT
  67.   ENDIF
  68.  
  69.  
  70.   COLOR BRIGHT CYAN BLACK
  71.   DISPLAY_FILE J:\PCB\INFO.TXT            ;display this file
  72.  
  73.   INDENT  5
  74.   TEXT  "@X09────────────────────────────────────────────────────────────────"
  75.   TEXT  "             **** QExchange Bulletin Board ****"
  76.   TEXT  "@X09────────────────────────────────────────────────────────────────"
  77.   TEXT  ""
  78.   TEXT  "You are in the new caller login section. After completing the "
  79.   TEXT  "questions below, you will be returned to the main bulletin board."
  80.   TEXT  ""
  81.   TEXT  "This is a one-time procedure. Estimated time to complete this"
  82.   TEXT  "questionnaire is 2 to 4 minutes."
  83.   TEXT  ""
  84.   TEXT  "  Files uploaded: " @upfiles@
  85.   TEXT  "Files downloaded: " @dlfiles@
  86.   TEXT  ""
  87.   TEXT  "@X09────────────────────────────────────────────────────────────────"
  88.   TEXT  ""
  89.   INDENT  0
  90.  
  91.   BEEPS OFF
  92.   FLUSH_KB
  93.   MIN_ATTR  BRIGHT RED BLACK
  94.   MAX_ATTR  BRIGHT BLUE BLACK
  95.   ANS_ATTR  BRIGHT YELLOW BLACK
  96.   LOGMSG  "@X05" @user@ " accessed InfoDoor"
  97.  
  98. :Modify
  99.   COLOR BRIGHT CYAN BLACK
  100.   PROMPT "            Name: " Name
  101.   NULL_ENTRY  AbortJob
  102.  
  103.   PROMPT "         Company: " Company
  104.   PROMPT "  Address line 1: " Addr1
  105.   PROMPT "  Address line 2: " Addr2
  106.   PROMPT "     City, State: " CitySt
  107.   PROMPT "             Zip: " Zip
  108.   PROMPT "         Country: " Country
  109.   PROMPT "    Phone Number: " Phone
  110.   TEXT   "                  (enter 0's if no FAX)"
  111.   PROMPT "      Fax Number: " Fax
  112.   PROMPT "        Your Age: " Age
  113.  
  114.   NEWLINE
  115.   PROMPT "                Your occupation: " Occup
  116.   PROMPT " How did you hear of QExchange?: " How
  117.   PROMPT "         Are you a Qantel User?: " Qantel
  118.   IF Qantel == "Y"
  119.     PROMPT "Do you subscribe to QUSER NEWS?: " QUser
  120.   ENDIF
  121.  
  122.   PROMPT "               Do you own a PC?: " PCOwner
  123.   IF PCOwner == "Y"
  124.     PROMPT "                     What Type?: " PCType
  125.   ENDIF
  126.  
  127.   PROMPT "       Do you use a PC NetWork?: " NetWork
  128.   IF NetWork == "Y"
  129.     PROMPT "                     Which one?: " NetType
  130.   ENDIF
  131.  
  132.   PROMPT "      Do you use VT3 Emulation?: " Vt3Emu
  133.   IF Vt3Emu == "Y"
  134.     PROMPT "                     Which one?: " EmuSoft
  135.   ENDIF
  136.  
  137.   NEWLINE
  138.   PROMPT "        Comments: " Cmnt1
  139.   NULL_ENTRY  EndOfJob
  140.   PROMPT "                : " Cmnt2
  141.   NULL_ENTRY  EndOfJob
  142.   PROMPT "                : " Cmnt3
  143.  
  144.  
  145. :EndOfJob
  146.   SET Option
  147.   COLOR BRIGHT CYAN BLACK
  148.   TEXT  "──────────────────────────────────────────────────────────────────────────"
  149.   COLOR BRIGHT YELLOW BLACK
  150.   PROMPT "@X0ECommand: (@X0FA@X0E)ccept, (@X0FL@X0E)ist, (@X0FE@X0E)dit " Option
  151.   UCASE Option
  152.   SWITCH  Option
  153.     CASE  "A"
  154.       GOTO JobOk
  155.       BREAK
  156.     CASE  "L"
  157.       GOTO Listit
  158.       BREAK
  159.     CASE  "E"
  160.       NEWLINE 2
  161.       GOTO Modify TOP
  162.       BREAK
  163.   SWITCH  END
  164.   GOTO EndOfJob TOP
  165.  
  166. :Listit
  167.   COLOR CYAN BLACK
  168.   TEXT  ""
  169.   TEXT  "                       Name@X08: @X0B" Name
  170.   TEXT  "                    Company@X08: @X0B" Company
  171.   TEXT  "             Address line 1@X08: @X0B" Addr1
  172.   TEXT  "             Address line 2@X08: @X0B" Addr2
  173.   TEXT  "  City, State, Zip, Country@X08: @X0B" CitySt "  " Zip "   " Country
  174.   TEXT  "               Phone Number@X08: @X0B" Phone "      Fax: " Fax
  175.   TEXT  "                   Your Age@X08: @X0B" Age
  176.   TEXT  "                 Occupation@X08: @X0B" Occup
  177.   TEXT  " How you heard of QExchange@X08: @X0B" How
  178.   TEXT  "               Qantel User?@X08: @X0B" Qantel
  179.   TEXT  "     QUSER NEWS subscriber?@X08: @X0B" QUser
  180.   TEXT  "           Do you own a PC?@X08: @X0B" PCOwner
  181.   TEXT  "                 What Type?@X08: @X0B" PCType
  182.   TEXT  "   Do you use a PC NetWork?@X08: @X0B" NetWork
  183.   TEXT  "                 Which one?@X08: @X0B" NetType
  184.   TEXT  "  Do you use VT3 Emulation?@X08: @X0B" Vt3Emu
  185.   TEXT  "                 Which one?@X08: @X0B" EmuSoft
  186.   TEXT  "        Comments@X08: @X0B" Cmnt1
  187.   TEXT  "                @X08: @X0B" Cmnt2
  188.   TEXT  "                @X08: @X0B" Cmnt3
  189.   GOTO EndOfJob TOP
  190.  
  191.  
  192. :JobOk
  193.   COLOR BRIGHT WHITE BLACK
  194.   TEXT   ""
  195.   TEXT   "Logging data. Please wait..."
  196.   ;
  197.   LOG_DATA "J:\PCB\INFO.LOG"
  198.     "---------------------------------------------------------------------"
  199.     "Name        : "  Name
  200.     "Company     : "  Company
  201.     "Date        : "  @sysdate@
  202.     "Time        : "  @systime@
  203.     "Node        : "  @node@
  204.     "Addr1       : "  Addr1
  205.     "Addr2       : "  Addr2
  206.     "City, State : "  CitySt "   " Zip
  207.     "Country     : "  Country
  208.     "Phone       : "  Phone
  209.     "Fax         : "  Fax
  210.     "Age         : "  Age
  211.     "How Heard of: "  How
  212.     "Occupation  : "  Occup
  213.     "Qantel User?: "  Qantel
  214.     "Quser News? : "  QUser
  215.     "PC Owner    : "  PCOwner
  216.     "PC Type     : "  PCType
  217.     "NetWork User: "  NetWork
  218.     "NetWare SW  : "  NetType
  219.     "VT3 Emu User: "  Vt3Emu
  220.     "EMU SW Used : "  EmuSoft
  221.     "Comments    : "  Cmnt1
  222.     "            : "  Cmnt2
  223.     "            : "  Cmnt3
  224.   LOG_DATA
  225.  
  226.   ;
  227.   ;-------------------------------------------------------------------------
  228.   ; Post Card Processing
  229.   ;-------------------------------------------------------------------------
  230.   ;
  231.   IF POST_CARDS
  232.     RANDOM_STR    0 Rand                  ;set some file fields
  233.     SET SysDate   @sysdate@               ;
  234.     SET SysTime   @systime@               ;
  235.     SET SysNode   @node@                  ;
  236.     OPENFILE  DataLun F:\PCB\INFO.DAT     ;data file for VERIFY door
  237.     WRITEFILE DataLun DataFmt             ;write new record
  238.     CLOSEFILE DataLun                     ;close the file
  239.  
  240.     LOG_DATA "F:\PCB\INFO.POS"            ;create physical Post Card text
  241.       "---------------------------------------------------------------------"
  242.       "Dear " @user@ ","
  243.       "Thank you for calling our system."
  244.       "To gain full access for a 15 day trial, please"
  245.       "enter 'VERIFY' the next time you call our system".
  246.       ""
  247.       "You will be asked for a security code."
  248.       'Your security code is: "' Rand '"'
  249.     LOG_DATA
  250.   ENDIF
  251.   ;
  252.   ;-------------------------------------------------------------------------
  253.   ; END of Post Card Processing
  254.   ;-------------------------------------------------------------------------
  255.   ;
  256.  
  257.   IF @security@ <= 10
  258.     INCREASE 1 10
  259.   ENDIF
  260.  
  261.   SEC_TABLE                     ;Security Table Start
  262.      9  10                      ; users at sec level 9 goto 10
  263.     10  20                      ; users at sec level 10 goto 20
  264.     20  30                      ; users at sec level 20 goto 30
  265.   SEC_TABLE                     ;Security Table End
  266.                                 ;
  267.                                 ;Other security functions:
  268.                                 ;
  269.                                 ; INCREASE x y
  270.                                 ;   Increase sec level by 'x', but do
  271.                                 ;   not allow to exceed 'y'.
  272.                                 ;
  273.                                 ; DECREASE x y
  274.                                 ;   Decrease sec level by 'x', but do
  275.                                 ;   not allow to be less than 'y'.
  276.                                 ;
  277.   SEC_LOOKUP  j:\pcb\info.lck   ;searches this file for the user name.
  278.                                 ; if found, it uses the security code
  279.                                 ; in this file to override any other
  280.                                 ; value. This could be used in a new
  281.                                 ; callers script, but have names of
  282.                                 ; friends (or customers, or etc..) in
  283.                                 ; the file - when looked up, the new
  284.                                 ; security is available.
  285.                                 ;
  286.   UPDATE_USER_RECORD            ;update the user record with new
  287.                                 ; security value.
  288.   IF @firstu@ != "SYSOP"
  289.     MSG
  290.       SYSOP
  291.       SYSOP
  292.       "New User Called"
  293.       Comment
  294.       "Main Board"
  295.       "A new user named " @user@ " has called the system."
  296.       "The date and time was " @sysdate@ " : " @systime@ "."
  297.       "They are from " CitySt "."
  298.       "Their phone number is " Phone
  299.       "Their occupation is " Occup "."
  300.       "They are " Age " years old."
  301.       "Qantel User: " Qantel ".  Vt3 Emu User: " Vt3Emu " " EmuSoft
  302.       ""
  303.       "Node: " @node@ "  Baud Rate: " @bps@
  304.     MSG
  305.   ENDIF
  306.   GOTO EndIt
  307.  
  308. :AbortJob
  309.   IF @firstu@ != "SYSOP"
  310.     MSG
  311.       SYSOP
  312.       SYSOP
  313.       "New User Abort"
  314.       Comment
  315.       "Main Board"
  316.       "A new user named " @user@ " has called the system."
  317.       "The date and time was " @sysdate@ " : " @systime@ "."
  318.       ""
  319.       "They @X8Caborted@X0B the INFO script."
  320.       ""
  321.       "Node: " @node@ "  Baud Rate: " @bps@
  322.     MSG
  323.   ENDIF
  324.  
  325. :EndIt
  326.   IF Qantel == "Y"
  327.     IF QUser == "N"
  328.       COLOR BRIGHT CYAN BLACK
  329.       DISPLAY_FILE J:\PCB\QUSER.TXT
  330.     ENDIF
  331.   ENDIF
  332.  
  333.   EXIT
  334.  
  335.